Private Sub lvw_DblClick()

    Dim  As Integer
    Dim  As Range
    Dim ڵ As Range

    If Not lvw.SelectedItem Is Nothing Then

         = lvw.SelectedItem.Text
    
        Set  = Range("B2", Cells(Rows.Count, "B").End(xlUp))
        Set ڵ = .Find(What:=).Resize(1, 7)
        
        Me.Hide
        
        With frm
            
            .Show vbModeless
        
            .txt.Value = ڵ(1)
            .txt̸.Value = ڵ(2)
            .cmb.Value = ڵ(3)
            .txtֹε.Value = ڵ(4)
            .txt.Value = ڵ(5)
            .txt.Value = ڵ(6)
        
            If ڵ(7) = "" Then
                .opt.Value = True
            Else
                .opt.Value = True
            End If
            
        End With

    End If

End Sub